@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||||DOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1 3u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}  =e{OLDNEW q +%;@,;@,?(Place dis,}k containingd( PLANETARY DEFENSE object file inq(Drive 1.H(#(Name of old object file'D(Name of new object -}fileH- 4#(Duplicate file names!- @| @U6-6@@S@@.}V(r(Creating new program...| @P)@6-%@#W"A#-@@0)@/}4"A*@O6-%@S W"(W"A0R#-@@0)@4"A*@O6-%@0}S W"-*@ @02((F:A,"A6%(Done.(4(ERROR in program!7H(( ERROR IN FILENAM1}E(S)! (USE 'D:')3@>@H @<TT116,111,117,99,104,64,116,97,98,73,255,133,145,173,124,2,141,132,2,234,2}234,234D:PLDEFMOD.BAS q +%;@,;@,?(Place dis50 ? "}Enter graphics mode, please"55 ? :? "1) single color (enter 9)"60 ? :? "2) mult. color (enter 11)"65 ? :? "34}) med. resolution (enter 30 or 31)"70 INPUT AZ1240 GRAPHICS AZ1:FOR I=0 TO 30:COLOR I/2:PLOT I,0:DRAWTO I,10:NEXT I:COLOR 75}:PLOT 0,10:DRAWTO 79,10 30 or 31)"70 INPUT AZ1240 GRAPHICS AZ1:FOR I=0 TO 30:COLOR I/2:PLOT I,0:DRAWTO I,10:NEXT I:COLOR 7  <SABERD:RUNAUTO.BASicby CHET WALTERS (c) 84 7} t +/6-F:@,%AV$F:@,G;@!,;@!,J(t(%ǠΠŠ̠Šg 8}@ @`(B("ԠԠŠΠŠE(g(ENTER NAME OF FILE TO AUTORUNM 6.D:67@ 9},.G7@<@,47@<@,M6.2B:,!@ ((ŠϠ2 @H @@ :}+@2(}D@H(#W( (,(CREATING FILE, DON'T INTERRUPTW@@ D:AUT ;}ORUN.SYS(,-@I"(*@, ---@ )*@F:%,- 27-@B" <}(*@, 7@7D(}AUTORUN FILE FOR()(IS NOW6( TOA(RD<X@(>:AS,*6 =}-F:A,6"Ap9(N(ŠԠġX @A="@3(MUST BE AT LEAST TWO CHARACTERS= @F* >}Ag ( Ҿ * @Kv@@8(ǠΠŠġ;(Y(PRESS >>RETURN<< TWICE TO ?}v(REPLACE EXISTING FILE ORPz(TYPE DOS TO CHECK MENU!($(e(XIO 36,#1,0,0,>:@4, D:AUTORUN.SYS>:@4, @}:G.30w@@zR??255,255,0,6,101,6,160,158,162,36,142,197,2,142,23,208,142T==240,2,189,28,6,145,88,136,202, A}16,247,169,13,141,74,3,96V2256,29,53,51,50,8,17,22,16,17,9,26,50,53,46,2X88104,141,240,2,168,170,145,88,200,192,129,144 B},4,189Z8894,6,232,192,140,208,241,142,74,3,202,142,197,2,96\,,0,44,47,33,36,41,46,39,226,2,227,2,0,6]^VVFOR QUI C}ET LOAD CHANGE-> 240,2 TO 65,0 IN LINE 88 (CURSOR WILL REMAIN INVISIBLE)_`77TO HAVE NO TEXT APPEAR CHANGE-> 2 TO 6 I D}N LINE 90abjjTO MAKE SYSTEM RESET CAUSE COLD START CHANGE-> 197 TO 68 IN LINE 90 (THE TEXT WON'T APPEAR HOWEVER)c[ E}[PROGRAM LOADED SHOULD ISSUE A GRAPHICS STATEMENT TO RESTORE COLOR & CLEAR THE SCREEN D:RUNAUTO.BASALTERS (c) 84 m%&8#M#PGTOPLININUSUIOCCF1F2SG} 00PROGRAM CREATES TWO FILES FOR BASIC BURGER LOAD MHD IN MEMORY66H}-F:A, 6-&@,6-B6 A""LOAD PLAYER STACKS IN MEMORY(4(>:AS,6-&@*6-B4I} A2""LOAD PLAYER IMAGES IN MEMORY<4(>:AS,6-&@*6-B4 AF$$MODIFY CHARACTER SET IN MJ}EMORYPA(>:AS,6-&@*6-B4 AA(>:AS,Zs6-$AV(6-F:AV,$AV<-A(AK}I%F:%,M a-AVAco%AUs `W6-%A#@/-@3"C&Ar%L}S&AW&W a%%255,231,195,129,231,231,231,255c6;@ ,;@ ,$6.C:*6.66-A(d[%(MAKEM} CASETTE (0), OR DISK(1))-<6.D:MHD.MLO6. D:BURGER.BIN[6-iN"2(INSERT CASSETTE, PUSH PLAYN} ANDN(RECORD AND PRESS RETURNn:6-@6-&@.@:6-Ax B""WRITE CHSET STACO}K AND IMAGES@6-&@6-A#/Ad@@@. B++&@,$AV.P}SUBR LOAD DATA IN MEMORY+#6-$AV!6-+ A0;-@"!)6-%76-%@Q}; 7%F:A,%AV$F:A,4( MISSING7."O:,+(CHECKSUM ERROR LINE .)(6-%@R})!A $ B$' MHD.ML'DD216,169,152,133,204,169,255,133,0,133,209,230,0,165,0,201,2369'>>8,S}208,14,165,209,208,3,141,30,208,160,8,162,0,76,98,4067$'AA228,10,10,10,10,10,133,203,160,0,177,203,208,85,160,26,5700.'EET}177,203,201,4,176,213,170,160,31,189,132,2,209,203,240,203,82138'GG145,203,168,208,198,165,204,133,206,160,29,177,203,10,10U},10,10442B'EE10,10,133,205,160,0,177,205,240,177,160,30,177,203,24,105,12458L'EE1,145,203,160,30,201,255,208,4,169,255,14V}5,203,160,27,177,14801V'DD203,160,0,24,113,205,145,203,160,28,177,203,160,1,24,113,16720`'DD205,145,203,169,152,133,208,1W}65,0,201,4,144,2,169,255,24,18899j'DD105,4,74,170,169,0,106,133,207,138,101,208,133,208,165,0,20820t'AA73,4,170,160,7,177X},203,61,0,208,208,56,200,177,203,61,22788~'AA8,208,208,48,169,1,133,205,165,0,201,4,176,81,170,200,24765'BB177,203,240,7Y}5,133,206,202,48,4,6,205,144,249,160,0,70,26887'AA206,144,7,185,8,208,37,205,208,8,200,192,4,208,240,24,28971'BB144,45,Z}160,9,177,203,10,144,14,169,0,133,209,160,0,145,30693'CC203,32,187,103,76,11,100,10,144,18,160,23,177,203,160,0,32300'GG[}132,209,145,203,160,24,177,203,160,1,145,203,76,174,101,160,34573'CC21,177,203,24,105,1,145,203,160,5,209,203,144,43,160,\}21,36397'EE169,0,145,203,168,177,203,160,23,145,203,24,160,2,113,203,38495'CC160,16,209,203,176,10,160,15,177,203,41,1,]}240,171,208,9,40494'EE200,209,203,176,241,160,0,145,203,160,22,177,203,24,105,1,42723'CC145,203,160,6,209,203,144,44,16^}0,22,169,0,145,203,160,1,44697'FF177,203,160,24,145,203,24,160,3,113,203,160,18,209,203,176,46878'EE10,160,15,177,203,4_}1,1,208,11,240,193,200,209,203,176,241,49166(CC160,1,145,203,160,20,177,203,24,105,1,145,203,160,4,209,51086 (CC203,144,`}27,160,20,169,0,145,203,160,12,177,203,24,105,1,52839(CC145,203,160,10,209,203,144,6,160,12,169,0,145,203,166,0,54774(BBa}160,0,224,8,208,17,202,138,73,3,10,234,234,113,203,157,56758((BB4,208,202,16,242,48,5,177,203,157,0,208,160,12,177,203,587b}802(CC170,136,169,0,24,202,48,4,113,203,208,249,160,13,24,113,60616<(FF203,133,205,200,169,0,113,203,133,206,160,1,177,20c}3,72,160,62954F(EE25,209,203,240,3,32,187,103,104,160,25,145,203,24,101,207,64925P(GG133,207,160,11,177,203,168,136,166,0d},189,179,103,170,138,49,67114Z(EE207,17,205,145,207,136,16,246,160,26,177,203,48,108,201,4,69220d(CC144,104,201,12,176,10e}3,133,205,41,3,170,169,0,160,2,145,70988n(DD203,200,145,203,189,120,2,73,15,133,206,208,8,160,20,169,73042x(CC0,145,203,2f}40,69,70,206,144,10,160,28,169,0,241,203,160,75090(BB3,145,203,70,206,144,8,160,28,177,203,160,3,145,203,70,77018(DD206g},144,10,160,27,169,0,241,203,160,2,145,203,70,206,144,79108(CC8,160,27,177,203,160,2,145,203,165,205,201,8,176,11,160,8111h}9(BB2,177,203,240,5,200,169,0,145,203,76,11,100,201,16,240,83107(AA112,41,3,170,32,161,103,240,13,169,12,192,0,240,2,16i}9,84766(BB3,133,206,24,144,50,32,215,103,160,2,177,203,48,10,165,86441(@@206,41,8,208,12,145,203,240,8,165,206,41,4,208j},2,145,88283(CC203,200,177,203,48,10,165,206,41,2,208,12,145,203,240,8,90354(AA165,206,41,1,208,2,145,203,189,120,2,73,k}15,37,206,133,92100(DD206,208,12,160,2,177,203,200,17,203,208,12,76,61,102,169,94116(CC0,160,2,145,203,200,145,203,169,l}4,133,205,76,69,102,208,96140(HH137,160,21,177,203,208,248,32,161,103,208,243,32,215,103,240,98631(CC222,160,2,177,203,m}240,14,48,6,165,206,41,11,208,25,165,100524)BB206,41,7,208,19,200,177,203,48,8,240,14,165,206,41,14,102321)FF208,6,165,n}206,41,13,240,183,133,206,160,15,173,10,210,209,104499)FF203,144,17,173,10,210,41,3,170,189,175,103,37,206,240,243,106663o}")DD133,206,208,155,160,29,177,203,48,27,10,10,10,10,10,133,108192,)GG207,165,204,133,208,160,0,177,207,160,30,145,203,160p},1,177,1105296)FF207,160,31,145,203,160,30,177,203,160,0,209,203,240,12,48,112717@)BB4,169,8,208,2,169,4,37,206,208,197,1q}60,31,177,203,160,114660J)@@1,209,203,48,4,169,2,208,2,169,1,37,206,208,177,240,116544T)@@162,160,0,177,203,41,15,208,5,2r}00,177,203,41,7,96,1,118240^);;2,4,8,0,0,0,0,252,243,207,63,166,0,189,179,103,119656h)EE133,1,160,11,177,203,170,160,25,1s}77,203,168,177,207,37,1,121666r)HH145,207,200,202,208,246,96,160,1,177,203,10,234,133,206,136,124230|)@@177,203,74,74,74,t}74,24,101,206,56,233,0,168,185,0,6,125885)44133,206,96,100,0,0,0,0,0,0,0,0,0,0,0,0,-126420)PLAYER CONTROL STACKS ***u}) CHEF)110,0,0,0,10,4,5,0,143,0,2,16,0,160,145,1,486)0060,196,40,137,0,0,0,0,0,0,20,1,1,0,0,0,941) HOT DOG)44v}0,0,0,0,10,3,4,139,0,131,2,16,0,0,145,150,1541)1110,250,16,250,0,0,0,0,0,0,16,1,1,0,0,0,2085) PICKEL)550,0,0,0,10,3w},4,139,0,131,2,16,0,32,145,150,2717)1110,250,16,250,0,0,0,0,0,0,16,1,1,0,0,0,3261* CHICKEN*550,0,0,0,20,3,4,139,0,1x}31,2,16,0,64,145,150,3935*1110,250,16,250,0,0,0,0,0,0,16,1,1,0,0,0,4479*RIGHT FLYING PEPPER*220,0,1,1,0,1,1,139,14y}2,0,1,5,0,192,145,0,5107&*2232,216,16,200,0,0,0,0,0,0,0,4,255,0,0,0,5830+*LEFT FLYING PEPPER0*440,0,255,1,0,1,1,139,1z}42,0,1,5,0,192,145,0,6712:*2232,216,16,200,0,0,0,0,0,0,0,2,255,0,0,0,7433?*BOUNCING PD*..0,0,0,0,4,5,6,0,1,0,4,8,0,20{}0,145,1,7807N*1132,240,40,137,0,0,0,0,0,0,16,1,1,1,0,0,8275S*BOUNCING MONEYX*000,0,0,0,4,5,6,0,129,0,4,8,0,232,145,0,|}8808b*2232,240,40,137,0,0,0,0,0,0,16,1,1,1,0,0,-9276*IMAGES FOR PLAYERS *****TWO HOT DOG IMAGES*FF48,120,180,2}}52,252,126,126,62,62,126,126,252,252,252,120,48,2404+@@12,30,45,62,62,126,126,252,252,126,126,62,62,62,30,12,3851+TWO~} PICKEL IMAGES +660,24,0,126,0,90,0,255,0,231,0,90,0,126,0,24,4817+000,0,0,0,0,0,126,255,126,0,0,0,0,0,0,0,5324+TWO} CHICKEN IMAGES +<<0,0,24,60,60,126,126,126,126,60,60,60,24,24,24,60,6284*+<<0,0,60,24,24,24,60,60,60,126,126,126,126,60,}60,24,7244/+..2 MV LEFT,2 MV RT,2 CLIMBING CHEF IMAGES4+880,0,0,0,62,127,62,28,28,12,63,127,92,28,54,54,7981>+990,0,0,0},62,127,62,28,28,12,127,127,29,28,54,99,8764H+880,0,0,0,62,127,62,28,28,24,63,127,92,28,54,54,9513R+::0,0,0,0,62,127,62,2}8,28,24,127,127,29,28,54,99,10308\+>>0,0,0,0,0,124,254,124,56,56,126,254,254,252,108,12,11928f+>>0,0,0,0,0,124,254,124,56},56,252,254,254,126,108,96,13632k+!!FLYING PEPPER, 4 BOUNCING Pp+4415,0,15,0,15,0,0,0,48,48,48,32,32,32,0,0,13917z+770,}48,48,48,32,32,32,0,0,0,48,48,48,32,32,32,14397+, 4 MONEY IMAGES+990,48,48,48,32,32,32,0,0,0,0,0,192,192,192,192,1540}5+;;0,0,0,192,192,192,192,0,0,0,192,192,192,192,0,0,16941+440,0,0,192,192,192,192,0,0,0,0,0,0,0,0,0,-17709,!!16 REDE}FINED CHARACTERS ***$,440,0,0,0,0,0,0,0,255,255,0,255,0,255,0,255,1275.,CC3,7,15,31,63,127,255,255,255,255,191,255,255,25}5,223,255,39758,BB192,240,248,252,254,255,191,255,0,255,0,255,0,255,0,255,6882B,DD19,63,127,255,255,127,63,6,96,252,254,2}55,255,254,252,200,9615L,FF255,191,255,127,63,31,15,3,255,191,255,254,252,248,240,192,12442V,990,0,0,0,0,0,0,255,31,63,12}7,191,255,127,63,31,13585`,II248,252,254,255,191,254,252,248,28,191,255,255,255,255,253,56,17087j,880,0,0,0,0,0,24,60,24,}24,60,36,36,44,110,126,-17631NIO=(1=READ,2=WRITE)NPG=PAGE , NUM =# OF BYTESNY6-A2%$@7%@@}%@$K%@Y%@N:6-P:'AV,,%@&$AV:%@ N)!6-?:C:hhh}LV,<$@,&)$ D:BURGER1.BASF2S-4vKKKKKKUPVECTORFOODBLIFBPNLEVEKPGCHSEPFLBFLOFBLUXOLOXXYOLPNPEPPEBONUDPPOU}IFFOOGRIUPFLPGTOPNUIIOC } } !"#$%&'()*}+,-./0123** BASIC BURGER **BY DAVID H. BUTLER}K6-@6-@'6-@36-@?6-@K6-@_+;,;@,;@,;@,16-}=6-BP6. _6-F:AP, Q #A-@"+67,.>:,/ =-@A"M67,.>:,Q }Zs +@@w# B/AV56-? AxE6-a2@ @@sAdAU%F:}B2y,")(T:," AP%%; "6-?:C:,<,! A'-1(0; AcG AP6-Ap%6-A(}3%@@9G6-?:C:,<,START OF MAIN LOOPF 6-F:,-6-P:'@2%?P,$@22(< AF Ac}&6-F:%,&2AP$5&!@$6-6-+6-&@5 A-&!@$6-6-#6}-- AP6-F:%,-1(  @F:B2y,"F6-P Ad  AB6-F:,$}%-@")(7<,5-@#B(7<,>(F:@ ,!@`/-@@#>( "B7}a"QUICK SO.0,0,0,07(F:B7p, 6--6-%$@27 A W "6-F:B2X,'#P:,- Ap};%AA6-K AWB2x;(F:B7p, @#6-16-%A$; A X*(F:%A$,'-}@@#4(B=:6-B6-%N@ X A"F:Ad,"@3" A! A A ! A}pBBREMOVE ALL PLAYERS, SET DX AND DY TO ZERO ON ALL BUT PEPPERS&O-@!6-%$@2'5B2H%}?*G%O%06 %@!!B2x'6--6-36-6$CHOOSE CHEF IMAGEJ6-F:%,J%@}@$+"AU,%A($+",%A`$+",FLYING PEPPER SOUND*6-F:%A(,(*6-F:%A`,B6}-O:&F:,,'@?2+@&,$+ @,$+,B$FALLING BURGER ROUTINEj66-P:+&@@,'@$%?P,}$@$%@@F6-'@&V6-'@&^1j6-@2 " $$$REMOVE FOOD ON TOP BURGER PARTI-}@2@@2*6-F:%,7F:%%,"A!* I% #6-%A-#( mM6-$+"@4},%@ $+",%@$+"A9,%@$+"@@,%m2AU&$@@(B7cF:%A(,(2}z[6-$+"Ap,%$+"@4,%@ $+",%@$+"A9,%@$+"@@,%pF:Ad,"@3z A}$U!@1%%@2?6-%A$+"@,KB7aU A.A"@2)"-((7<%},7+",*F:%,A A 3H 6-%1-((7<%,8@2*>6-H APB AUCTEST FO}R END OF ROUNDG3-@!1@-"@20'3$Hb  '6-%A -@6-%A$+(F:%$@2},,D N APX Ab @KBRING FOOD TO LIFELH:, ?u$Q-#6-%@2%@2$P:$H:,,*F:,}-$V 6-%6-%+!,$A``!6-@@%P:H:,$,$@$?6-@2%A$P:H:,$,G%O%W%]}`$PUT DEAD CHEF ON SCREENf6-F:%@%,%%A$D6-F:%@,%AV$F:%@,R-@_%F:}%,c f$@,,104,104,170,104,168,169,7,32,92,228,96J??32,32,32,170,170,170,34,35,36,6,13,7,139,131,140,40,35,41xS}ET SPEEDS>6-%+ @,#Ax1-@@">(̽ -" # -#(GET READY TO P}LAY$-@!$( BASIC BURGER7 %%%%'%A%7%A%T -%$@2%}/%$@2%3 I6-%A(%@0N(TBB4,3,500,3,4,750,3,3,1000,3,2,1500,2,3,2000,2,2,3000,2,1,5000'}-@"'(ӽ&F:,*-@#*(ӽ ý ! A@DRAW RANDOM MAZEJ:-}A@##AP:6-+(,%$+"A,T-@"^A6%%&$+",hA F:B2y,"(6-}$+@,4AP7'A Axm r))8,8,8,3,12,3,12,3,12,3,12,3,4,4,4,4wADD BASIC MAZE|-@}-, ""(, A(( ( } - -@-(ADD FOOD MODIFY MAZE-@6-@6-%}$P:H:,$,-@' "-&( ' A -(7<%, 6-%E%6-A6%@$}+&,%+%,'6F:,%@E%F:%,%    ADD ONE WAY LADDERS -@  6-(6.6}.& 76-%$P:H:,$,76-A6%@$+&,%+%,'0 )6-%@H$+(,)F:,&"A0: F:,&&&+(,D } -&( N _-@!-@.(>:@,2 >-@"F-[( >:@,_ X '-@}#'( / / / / / ] *( $b L6-%A(%%@&3%@2I%@2%@&L$(#-}AdAU#6-?:C:,<,- A 2# F:Ad,@3A<#&AdAU#6-?:C:,<,&$#KILL CHEF S}OUND#J 6-&-@672AU$H:,@; A6-G6-J$#END ROUND SOUND#Z-A`@6}*2@. D2@`@Z2@@$8B7a-AP! +2528$T$E}-@22@ $H:,@@6 BB7aE$$38,32,26,20,32,26$BONUS CHEF$U 6-%6-%B}##A+-/"?2@M-@Q U $B7a$ NONE TIME SET UP/NASSIGN COLORS TO }PLAYERS4N`A@'A@p<AF:A ,NA@$`A@"9NLOAD IN MHD IF N}OT LOADED>NH6-F:A, 6-&@.6-&@<-$AVH6-ACNF:,"ABHN1 6-}D:MHD.ML' B1 B`MNMHD RET.=DEFERRED VBLANKRNC%@1F:AH,1%@2F:AI,76-CAP}WN;%A@&%%A;LIMIT PEPPERS TO 5.\N,%AF@$,SINGLE RESOLUTION.aNG%A QA}@+%A RA@GCHANGE MISSILE KEEP MASK.fN4%A@4GRID EQUATION=2Y+X/16-80 .kN!!LOAD IN CHSET+S}TACKS+IMAGESpN\ D:BURGER.BIN'6-A2-6-7 BC-@\(CLEARING PM AREAuNK6-+&@,$}AV/-AhA G7%; KCLEAR PM AREAzNu6-&@BBy+%A2=AY@bIB2w}Q%cA#@uB2`ANZ6-$AV-@?%$@2%@&@C ZPG ADDRES}S OF IMAGESN,)6-F:%@1,%F:%@2,$AV,$NIO=(1=READ,2=WRITE)NPG=PAGE , NUM =# OF BYTESN56-A2}%$@%%%$-%5%N:6-P:'AV,,%@&$AV:%@ N)!6-?:C:hhhLV,<$@},&)$NMAKE MHD RELOCATABLENP #Bp-@";%F:%,&F:%A,%? M%AP$N==}243,246,270,503,524,652,662,680,750,766,777,782,843,959 D:BURGER2.BASBLUXOLOXXYOLPNPEPPEBONUDPPOUM20036 REM ADD TO BASIC BURGER FOR CASSETTE SYSTEMS20037 POSITION 2,10:? #6;"MOUNT TAPE HIT KEY";20040 IO=1:OPEN #IO,4,128,"}C":GOSUB 20110:GOSUB 2016020080 POKE 764,12:OPEN #IO,4,128,"C":NUM=1032:PG=PGCHSET:GOSUB 20110:POSITION 2,10:? #6;"CLEARING }PM AREA ";25000 REM MAKE TAPE BACKUP25010 IF PEEK(ON)<>216 THEN ? "RUN BASIC BURGER BEFORE SAVEING":END 25020 TRAP 25030:}LPRINT :REM LPRINT BEFORE SAVE25030 TRAP 40000:? "MOUNT TAPE. HIT RETURN"25040 CSAVE :IO=2:NUM=1012:POKE 764,12:OPEN #IO,8,}128,"C":PG=PGTOP-8:GOSUB 2011025050 NUM=1032:PG=PGCHSET:POKE 764,12:OPEN #IO,8,128,"C":GOSUB 201102:POKE 764,12:OPEN #IO,8,d REM MHD MOTION HANDLER BASM ASM*=$63F0 CLDADR=203CMASK=205AIMAGE=205AFPL=205APM=207HPL=207CFLG=209INDEX=0STICK0=6}32TRIG0=644GRIDTB=1536CPLF=53248CPL=53256RANDOM=53770HITCLR=53278XITVBV=58466*=$6400ENTER CLD : LET ADR+1 = 152 LET} 255 -> INDEX -> CFLG REM TEST FOR ENDL1 INC INDEX IF INDEX <> 8 GOTO L0 LDA CFLG : BNE EXIT STA HITCLREXIT LDY #8 : LD}X #0 GOTO XITVBV REM ADR=32*INDEXL0 ASL A : ASL A : ASL A : ASL A ASL A : STA ADR REM IS STACK ON ? LDY #0 : LDA (ADR),}Y : BNE ON LDY #26 : REM TEST FOR TRIG IF (ADR),Y >= 4 GOTO L1 REM TRIG HANDLER LATCH LOGIC TAX : LDY #31 IF TRIG0,X = (}ADR),Y GOTO L1 STA (ADR),Y : TAY : BNE L1THD LET AFPL+1 = ADR+1 LDY #29 : LDA (ADR),Y : ASL A REM AFPL =32* (ADR),Y ASL }A : ASL A : ASL A : ASL A STA AFPL : REM IS AFPL ON LDY #0 : LDA (AFPL),Y : BEQ L1 LDY #30 : REM BULLET LIMIT LET (ADR),Y} = (ADR),Y + 1 LDY #30 : REM FOR LIMIT LDY #26 IF = 255 THEN LET (ADR),Y = 255 REM X=DELTA X + XF LDY #27 : LDA (ADR),Y :} LDY #0 LET (ADR),Y = + (AFPL),Y REM Y=DELTA Y + YF LDY #28 : LDA (ADR),Y : LDY #1 LET (ADR),Y = + (AFPL),Y REM COMPUTE }PM AREA ADRRESS APMON LET APM+1 = 152 : LDA INDEX IF < 4 GOTO L1A : LDA #255L1A LET + 4 : LSR A : TAX REM SINGLE RES POKE} LSR TO CLR LDA #0 : ROR A : STA APM : TXA ADC APM+1 : STA APM+1 REM TEST FOR COLLISIONSTCOL LET INDEX XOR 4 : TAX LDY #}7 : LET (ADR),Y AND CPLF,X BNE COL : INY LET (ADR),Y AND CPL,X : BNE COL LET CMASK = 1 IF INDEX >= 4 GOTO NCOL : TAX REM} TEST FOR PLAYER TO MISSILES INY : LDA (ADR),Y : BEQ NCOL STA CMASK+1L2 DEX : BMI L3 : ASL CMASK BCC L2L3 LDY #0L4 LSR }CMASK+1 : BCC L5 LET CPL,Y AND CMASK BNE COL-2L5 INY : CPY #4 : BNE L4 CLC : BCC NCOL : LDY #9 REM WHAT ACTION ON COLLIS}ION?COL LDA (ADR),Y : ASL A : BCC COL1 REM TURN STACK OFFOFF LET CFLG = 0 LDY #0 : STA (ADR),Y GOSUB CLRY : GOTO L1COL}1 ASL A : BCC COL2 REM RESET POSITION LDY #23 : LDA (ADR),Y : LDY #0 STY CFLG : STA (ADR),Y LDY #24 : LDA (ADR),Y : LDY #}1 STA (ADR),YCOL2 GOTO P9 : REM SKIP UPDATENCOL : REM UPDATE X LDY #21 LET (ADR),Y = (ADR),Y + 1 LDY #5 : IF < (ADR),Y }GOTO UPY REM CLEAR XCNT LET PX=X LDY #21 : LET (ADR),Y = 0 TAY : LDA (ADR),Y LDY #23 : STA (ADR),Y : CLC REM X=X+DX LDY} #2 : ADC (ADR),Y LDY #16 : REM IS X IN BOUNDS ? IF >= (ADR),Y GOTO UPX1OUTX LDY #15 : LET (ADR),Y AND 1TOFF BEQ OFF : BN}E UPYUPX1 INY IF >= (ADR),Y GOTO OUTX REM STORE X LDY #0 : STA (ADR),YUPY LDY #22 : REM UPDATE Y LET (ADR),Y = (ADR),Y }+ 1 LDY #6 : IF < (ADR),Y GOTO UPI REM CLEAR YCNT LET PY=Y LDY #22 : LET (ADR),Y = 0 LDY #1 : LDA(ADR),Y LDY #24 : STA (}ADR),Y : CLC REM Y=Y+DY LDY #3 : ADC (ADR),Y LDY #18 : REM IS Y IN BOUNDS IF >= (ADR),Y GOTO UPY1OUTY LDY #15 : LET (ADR}),Y AND 1 BNE UPI : BEQ TOFFUPY1 INY IF >= (ADR),Y GOTO OUTY REM STORE Y LDY #1 : STA (ADR),YUPI LDY #20 LET (ADR),Y =} (ADR),Y + 1 LDY #4 : IF < (ADR),Y GOTO P9 LDY #20 : REM IMAGE CHANGE LET (ADR),Y = 0 : LDY #12 LET (ADR),Y = (ADR),Y + 1} LDY #10 : IF < (ADR),Y GOTO P9 LDY #12 : LET (ADR),Y = 0P9 LDX INDEX : REM POKE X LDY #0 : CPX #8 : BNE PX DEX : REM 5T}H PLYR CPX #8 TO #4PZ TXA : EOR #3 : ASL A : NOP NOP : ADC (ADR),Y STA CPLF+4,X DEX : BPL PZ : BMI PX1PX LET CPLF,X = (A}DR),Y REM COMPUTE IMAGE LOAD AREA REM AREA=IM ADR + IM # * IM SZPX1 LDY #12 : LDA (ADR),Y TAX : DEY : LDA #0 : CLCIM1 DE}X : BMI IM2 : ADC (ADR),Y BNE IM1IM2 LDY #13 LET AIMAGE = + (ADR),Y : INY LDA #0 : ADC (ADR),Y STA AIMAGE+1 : LDY #1 RE}M CLEAR Y IF Y<>LY LDA (ADR),Y : PHA : LDY #25 CMP (ADR),Y : BEQ I3 : JSR CLRY REM LY=YI3 PLA : LDY #25 : STA (ADR),Y LE}T APM = + APM LDY #11 : LDA (ADR),Y : TAY DEY : REM LOAD IMAGE LDX INDEX : LDA KEEP,X : TAXLOAD TXA : AND (APM),Y LET (A}PM),Y = OR (AIMAGE),Y DEY : BPL LOAD REM TEST FOR STICK LDY #26 : LDA (ADR),Y : BMI TL1 IF < 4 GOTO TL1 IF >= 12 GOTO GS}TK REM STICK HANDLER STA CMASK : AND #3 : TAX LDA #0 : LDY #2 : STA (ADR),Y INY : STA (ADR),Y LET CMASK+1 = STICK0,X XOR} 15 BNE ST0 : REM STOP CYCLICACTIONST0P LDY #20 LET (ADR),Y = 0 : BEQ TL1ST0 LSR CMASK+1 : BCC ST1 LDY #28 : LDA #0 : SB}C (ADR),Y LDY #3 : STA (ADR),YST1 LSR CMASK+1 : BCC ST2 LDY #28 : LDA (ADR),Y LDY #3 : STA (ADR),YST2 LSR CMASK+1 : BCC }ST3 LDY #27 : LDA #0 : SBC (ADR),Y LDY #2 : STA (ADR),YST3 LSR CMASK+1 : BCC ST4 LDY #27 : LDA (ADR),Y LDY #2 : STA (ADR}),YST4 IF CMASK >= 8 GOTO TL1 LDY #2 : LDA (ADR),Y : BEQ TL1 INY : LET (ADR),Y = 0TL1 GOTO L1GSTK IF = 16 GOTO GRID REM} 4 WAY GRID STICK AND #3 : TAX GOSUB TGRID : BEQ GS1 LDA #12 : CPY #0 : BEQ TG5 LDA #3TG5 STA CMASK+1 : CLC : BCC GS5GS}1 GOSUB GPNT : REM REMOVE ILL LDY #2 : LDA (ADR),Y : BMI GS2 LET CMASK+1 AND 8 : BNE GS3 STA (ADR),Y : BEQ GS3GS2 LET CMA}SK+1 AND 4 : BNE GS3 STA (ADR),YGS3 INY : LDA (ADR),Y : BMI GS4 LET CMASK+1 AND 2 : BNE GS5 STA (ADR),Y : BEQ GS5GS4 LET} CMASK+1 AND 1 : BNE GS5 STA (ADR),YGS5 LET STICK0,X XOR 15 AND CMASK+1 STA CMASK+1 : BNE GS7 REM STOP CYCLIC ACTION ? }LDY #2 : LDA (ADR),Y INY : ORA (ADR),Y : BNE GS6 GOTO ST0PGS7 LDA #0 : LDY #2 STA (ADR),Y : INY : STA (ADR),YGS6 LET CMA}SK = 4 : JMP ST0GS8 BNE TL1 REM SELECT GRID DIRECTION REM FOR GRID PLAYERGRID LDY #21 : LDA (ADR),Y : BNE GS8 GOSUB TGR}ID : BNE GS8 GOSUB GPNT : BEQ GS7 REM REMOVE DIRECTION FROM LDY #2 : LDA (ADR),Y : BEQ GR2 BMI GR1 : LET CMASK+1 AND 11 }BNE GR4GR1 LET CMASK+1 AND 7 BNE GR4GR2 INY : LDA (ADR),Y : BMI GR3 BEQ GR4+2 LET CMASK+1 AND 14 : BNE GR4GR3 LET CMASK}+1 AND 13 BEQ GS7GR4 STA CMASK+1 : LDY #15 REM HOME IN ON TARGET OR RANDOM IF RANDOM < (ADR),Y GOTO HOME REM CHOOSE RAND}OM DIRECTIONGR5 LET RANDOM AND 3 : TAX LET TBL,X AND CMASK+1 BEQ GR5GR6 STA CMASK+1 : BNE GS7HOME REM HOME IN ON TARGET} LDY #29 : LDA (ADR),Y BMI XY : REM TARGET IS PLAYER? REM YES STORE PLAYERS X,Y REM HPL = 32*PLAYER ASL A : ASL A : ASL A} : ASL A ASL A : STA HPL LET HPL+1 = ADR+1 : LDY #0 LDA (HPL),Y : LDY #30 STA (ADR),Y : LDY #1 LDA (HPL),Y : LDY #31 ST}A (ADR),Y REM HOME IN ON HX,HYXY LDY #30 : LDA (ADR),Y LDY #0 : CMP (ADR),Y : BEQ HY BMI XY0 : LDA #8 : BNE XY1XY0 LDA #}4XY1 AND CMASK+1 : BNE GR6HY LDY #31 : LDA (ADR),Y LDY #1 : CMP (ADR),Y : BMI HY0 LDA #2 : BNE HY1HY0 LDA #1HY1 AND CMA}SK+1 : BNE GR6 BEQ GR5TGRID REM TEST FOR GRID POINT LDY #0 : LET (ADR),Y AND 15 BNE NOTGR : INY LET (ADR),Y AND 7NOTGR }RETURN REM TBL DIRECTIONSTBL DATA 1 , 2 , 4 , 8 REM KEEP MASKS PLAYER/MISSILESKEEP DATA 0 , 0 , 0 , 0 DATA 252 , 243 , 2}07 , 63 REM CLEAR KEEP APPROPIATE BITSCLRY LDX INDEX LET INDEX+1 = KEEP,X LDY #11 : LDA (ADR),Y : TAX LDY #25 : LDA (ADR}),Y : TAYCLR1 LET (APM),Y AND INDEX+1 STA (APM),Y : INY : DEX BNE CLR1 : RETURNGPNT REM LOAD LEGAL DIRECTIONS LDY #1 : L}DA (ADR),Y : ASL A NOP : REM 2*Y+X/16-0 GRID EQU. STA CMASK+1 : DEY : LDA (ADR),Y LSR A : LSR A : LSR A : LSR A LET + CMA}SK+1 - 0 : TAY LET CMASK+1 = GRIDTB,Y RETURN DATA >ENTER205AIMAGE=205AFPL=205APM=207HPL=207CFLG=209INDEX=0STICK0=6<0YYREKXXHXXINYISYINZINDBKDARIFRAMTODLISADDRESNUMBEIOCADRHADRLNUMHNUMLQF!}CZ ! }! } !"#$%&'()*+ A ! }-6$+&,6- -$+&,$$ĠǠΩ !) 6- @4 6-$ 6-! }$ 6-&$6-%$$ 6-%$6-A&&%6-%AY/% @4  ,6-"   ! }$-$+&,6-&-6$+&,($$ĠǠΩ* !) 6- @`, 6-$. !} 6-$0 6-&$26-%$$4 6-%$66-A&&8%6-%AY/% @`: ,6-< !}  Ad 6-6- -6$+&,f-$+&,h$$ĠǠΩi !6-j  !}6-k   l !6-m  6-n$M2A@@--A1 ;2MAd!}AU26-F:B2y,"@( A2 A#"@ A# A#"@ A# A!}(F:Ad,"@((}( A A+*"49 SECOND SCREEN DUMP",(@(@@P:!}.8((@>:@',A>:@,8-%@90* 6.>:,67A,.*67@,.2C6-?:A6<:@',K>:A,>:,@ C$QQ*400-432 IS 'AS IS' SUBROUTINE SUPPLIED BY TO SAVE A GR.24SCREEN%!}6-@6-%2*@$$-AA.*F:,2 6-F:A,$AV%%6-F:A`!},%AV$F:Aa, 6- 6-&%6-@$'6-A2%'%@%@6-P:'AV,6!}-&$AV%@%@6-P:'AV,6-&AV$%@%@ 6-?:C:!}hhhLV,<,'@$X 6-6-6. A Yo,AYA'/@ A9/AY@DK/A!}A]/AYAo/AYAGZi,@ A'/@ @s9,AY@DE/AYW,A!}Ai/A@s\E/AYAG'/@ @s3/AYE/A@s^u 6-6-@#6.!}- A 96-@G6.Q A ]6-@k6.u A `X 6-6-@6.=:,( A!} 16.=:,B6-@9&B:,N6-@X A bw6-@6-@#$6.=:,. A :6-@#C6.=:,M A!} Y6-@&_6-m6.HIGH Z=w A c86-@36.=:,'B:,!@86.7<@,dr A 6-@&!}%6-@36.LOW Z== A I6-@3R6.=:,aB:,!@r6.7<@,fb A 6-@%6-@!}26.Y-AXIS< A H6-@0U6.X-AXIS_ A b$<6-?:C:,<<:,4 h@+%AAHB(ŠҧӠҡe(ĠàҠ͠h(pQ(IINP!#}UT FORMULA AS... Z=(IN TERMS OF X&Y) THAT SYNTAX IS CORRECT.p((eg: PAIRS OF PARENTHESIS)E (}AY!$}%-@/(14 ;-@E(40 J-@(104 &-@!/(CONT5-GAB@J&U!%}AY@4'AB@U()}ҡӠ٠ΠMM(ENOTE: ALL THREE PRIMARY AXIS (X,Y,Z) !&} BE IN SPECIFIED DOMAINS!_( ( (Y(GAUTOMATIC BOUNDS SELECTION ENSURES FULL PLOTTING BUT TAKES MORE TIME..._6-!'}g(U(JPLEASE CHOOSE |1] AUTOMATIC SCALING Z-AXIS BOUNDS |2] MANUAL SETTINGS.Yg"A @((INPUT LOWE!(}R LIMIT#<(INPUT UPPER LIMIT@&!)!) (WOOPS!& A%(( LOWER LIMIT%6-"(!)} UPPER LIMIT"6-&!)!) (WOOPS!& A N(.("DESIRED RESOLUTION (1=HIGH;10=LOW)2@6-%@!*}N6-$>Pc 6.D:(c(OINPUT TITLE OF SAVED SCREEN (IF SAVED) IN FORMAT (8 CHARACTERS MAX) !+}4 6. D:SCREEN.MP67B:,%,. P(((Π ADD LABELS & BORDERSP(#Ԡ SAVE IN MAGNIPRINT FORMAT! '!,}'(Ԡ 49 SECOND SCREEN DUMP!6($(PRESS ANY KEY TO BEGIN...6AdAU F:Ad,"AUA@>!-} " (4(# AUTO SCALING SEQUENCE IN ACTION!> AV6-A@'+&,'6-A@'+&,96-@C'+&,V6-O:$!.},%O:$$,%O:$$,9 +@$AAV+A /9 @Lll104,104,141,21,6,104,141,20,6,104,141,27,6,!/}104,141,26,6,160,193,173,255,255,136,240,35,141,255,255,238Vcc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19,6,206!0},21,6,76,19,6,238,27,6,76,33,6,96`bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,1!1}04,133jii217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15tff165,214,!2}105,64,133,214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170~XX16,1,136,132,213,138,41,96,208,!3}4,169,64,16,14,201,32,208,4,169,0,16,6,201,64,208,2__169,32,133,218,138,41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,!4}250,109,244,2,133,219hh164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,2!5}55230,21 aaɹaaaaɱaaɴxr!҂bz*r FH'MW+CFVD.D.CECD.D.CGd..*.*..112MbDSDATHEXLINDATLIDDBYTPASCHKSUTOTAIN@%7} *** BOULDER BOMBERS ***I @ 1(MAKE CASSETTE (0), OR DISK (%8}1)5I!@@ C BC0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15(r;@,9@",/%9}-@"3"<68,-@ L6-A V#A` A r( CHECKING DATA286-%@(LINE:!"8B:,%:}@A <F%6-F:A,%F:A,$AV+C(LINE  MISSING!FFq-@@@56-@:7%;}<,,&@H[6-@:7%@<%@,,&@Hq6-8,$@%8,P."@*@ $". @PZ% 6%<}-%!A %6-&Ad  ""@Pn A x F:A,@A "Ap%=}(A`*@A$)*@@<*@A%O*@@b*@u*@%>}@2@<-@A**@. 9@<(Ag+("INSERT DISK WITH DOS,%?} PRESS RETURN8;@,<g@@ D:AUTORUN.SYS*@AU)*@AU<*@%@}O*@@2b*@Au*@@@ A{((READY CASSETTE AND PRESS RETURNH@%A}@A(C:R#A0f-@@@j"w*@{ M(( WRITING FILE#6-@/6-A 9#%B}AC A M @P(BAD DATA: LINE ``0,18,216,31,255,31,169,0,141,47,2,169,60,141,2,211,169,0,141,231,%C}2,133,14,169,56,141,232,2--133,15,169,0,133,10,169,32,133,11,24,96ddA26FBDFC279D002CCA10F7A9008D0ED4A9348D16D0A9288D1%D}7D0A9848D18D0A9C48D19D0A9008D1AD0A2039D08,415ddD0CA10FAA9288D12D0A9848D13D0A9C88D14D0A9C88D15D0A9308D07D4A93E8D00D4A9038D%E}1DD0A070B900E099,358dd002CC8D0F7B900E199002DC8D0F7A92C8D09D4A900A0229912008810FAA02799FC298810FA204B25A9008D08D2,550dd%F}A9038D0FD2A938852DA948852EA92C852BA9CC852CA9008D00D48D05D285158D07D2207925A9AE8D02D4A9258D,475cc03D4A9FF8513A90185148519%G}A9008518A93E8D00D4A9038512AD1FD02903C901D015AD1FD02902F0F9A51A4901,76dd851A1869118D2926D004C902F015A518D00BAD0AD22901AABD%H}AC258517201D244CCD20AD1FD02901F0F9A90385,502$dd13A90085198D00D4A2029D59269D6326CA10F7A9108D5C268D6626A202A9CD9D5E269D6826C%I}A10F7A903852985,215.dd2AA91185278528A51A0A0A0AA207A8B99A259D4F26C8CA10F6A9D18D02D4A9258D03D4A93E8D00D4204B25A903,8558dd%J}85178512A90185148532A92A8531207925A90085188D06D2A92C852BgN8N ԰m ̕-423BD06D0D0034CE7222907D0034CBD22A9008534B51F38E96729F88533063306,595Ldd33263418653385339002E634B52B38E92F4A4A186533853390%L}02E6341869FC8533A53469298534A000B133F004,765VddC9049022C8B133F004C9049019A028B133F004C904900FC8B133D0034CE722C90490034CE72%M}20A8516A9009133,433`ddA53138E9018531B002C632A9FE8515BCAA25A51618795926995926A9038516B95926F023C91A901A38E90A9959,108jdd%N}2688C6163014B95926D002A910186901995926D0DDC8E616D0D8A9598533A92685348AF00BA90A186533853390,898tcc02E634A000B133D93A26F004B%O}0099011C8C004D0F0F00AA003B133993A268810F8BCAA25B95626D527D014F629,78~ddB529C904B00A187DAA25A8A9CD995A26F627F62FB52FC51BD02%P}A8A1869368534B51F8533A005A90091338810FB,985dd8A0AA8A9009900D29901D2951FB52FD04D2062254C2E238A1869368534B51F8533A900A00591%Q}338810FBF625B5,513dd254A4A4A4A851618751FC9C4B0C5951F8533A005B9602C91338810F88A0AA8A51618752395239900D2A9A838E5,241dd1%R}69901D2CA30424C9C21B529F0F68A18E51AD01BA5143008B52BC94490E6B006B52BC9B8B0DEAD0AD2290FF007,561ddD0D5BD10D0D0D0B52D18690895%S}1FA9009525952FF621A9329523D0BB8D1ED0201D24A515F012C615C61549F08D,794dd04D24A4A4A4A498F8D05D2AD1FD0C907F0034C9420A531D007A%T}532D0034C6321ADFC02C921D01AA9008D01D28D,615dd03D28D05D2AD00D3C9FFF0F9A9FF8DFC028DF202A512290FF0034C9A21A927851DA908851EA9%U}6418651D8533A9,948dd2B69008534A000B133F01EAAA028B133D0178A9133A000989133A53338E9288533B002C634C61E300FA53338E9,563dd2%V}88533B002C634C61E10CDC61D10B84C9A21A518D035A517C903F00CA9968D06D2A9248D07D2D023A9008D06D2,456ddA9028D07D2A201B52D85338A18%W}69348534A00FB9502C91338810F8CA10E9E612A5122517D061A52B186514852B,918dd8D00D08D02D0A51449FE18652C852C8D01D08D03D0A517C901D%X}03FA5122902F039A514851CA201B52D85338A18,443dd69348534A51229040A8516A51C29101865168616AAA000BD302C9133E8C8C008D0F5A51C49FE%Y}851CA616CA10CD,915ddA20FA41388D0FDCAD0F8A9018518A52BC92CF004C9CCD055A9008D05D28D07D285158518A201B51FF007B52FD0,504dd0%Z}3206225B521D003206225CA10EB207925A61AA5291875296519F025A51449FE8514A62DA42E862E842DA90385,640 dd12A532D00EA531C995B008A901%[}8517A904851B606868A9088516A2FFA0FFAD1FD0C907D00A88D0F6CAD0F1C616,269dd10EB4C9420A000B96C2699242AC8D0F7A091B96B2799232B88D%\}0F760B529F012D629B529C903B00A187DAA25A8,578ddA900995B2660A900A899003499003599003699003788D0F1851F8520852185228D01D28D03D2%]}60B2A5B4B5B0AD,390(ccAFA39280B2A5B9A1ACB0030D0103707070462F2670707070707070707044242A04040404040404040447F32506,972cc06%^}41AE257070707070707070707070707044242A040404040404040404462F2670060641D1258080E2EFF5ECE4,37<ddE5F28080E2EFEDE2E5F2F3808000%_}0000627900006D61726B0070726963650000000000000000302C2139253233,159Fdd1A001100000000000000000000282927281A00000000100000000%`}00000302C2139253200110000000000000000,690Pdd000000000000000000000000000000000000000000000000010101010101010101010101010101%a}010101010101,711Zdd010101010101010101010101010101010101018501010101010101010101010101010101010101010101010101,888ddd010%b}101010101010101010101018584850101010101010101010101010101010101010101010101010101010101,328ndd0101010101010184858485020202%c}02020202020202020202020202020202020202020202020202020202020202,933xdd02028485848485020202020202020202020202020202020202020%d}2020202020202020202020202020284848584,196dd848502020202020202020202020202020202020202020202020202020202020202020202848485%e}848484850303,461dd030303030303850303030303030303030303030303850303030303030303848484858484848503030303030303,890dd848%f}485038503030303030303038503848485030303030303038484848584848484850303030303848484848484,998dd8503030303030384848484848485%g}03030303038484848485848484848485030303848484848484848485030303,750cc03848484848484848485030303848484848485000000000000000%q}{B'DOS SYSB+PLDEFMODBASB3PALLMODSLSTB6RUNAUTO BASBGFBURGER1 BASB=BURGER2 BASBBURGER2CLSTB8MHD LSTB/ZPLOTTERBASB56BOMBERS BASBtBOMBERS M65B)LOANSHRKBASB+TWO56 BASBBMENU BSAUTORUN SYS05454545454545400A8A8A8A8A8A8A800FCFC,12ddFCFCFCFCFC00FFFFFFFFFFFFFFFFFCFCFCFCFCFCFCFC000001033FD3FE8000000183BFD37E00000%r}080C0FCCB7F,550dd01000080C1FDCB7E003C7EFF00FFFF7E3C1824241818000000A040E0E0E04000006C7C387C7C7C381000000000,427 D:%s}BOMBERS.BASbDSDATHEXLINDATLIDDBYTPASCHKSUTOTAIN@$ ,EEIdX;***********************nX;* *xX;* 'BOULDER BOMBERS' *X;* by *)u}X;* Mark Price *X;* *X;***********************X;X; ZERO-PAGE VARIABLESX;)v}X; CLOCKDELYVAL DIREXPLODE HOLDIT MASK ONSCR" PLAY,PLAYERS6 RKILL)w}@ TDIRJ XCOUNTT YCOUNT^ BMBDRPh BRUNrDRPFREQ|DRPRATE FREMEN BOMBS PLYRX)x} PLYRY RCKHIT ROCKS SCRPTRX;X; KEYBOARD VARIABLESX; CH CH1X;PMAREA0)y}PL0PMAREAPL1PL0&PL2PL10PL3PL2:X;DROMCH;;ROM CHR SETICHARS,;;MY CHR SETN)z}X;XX; SYSTEM EQUATESbX;lAUDCTLv AUDC1Ҁ AUDC2Ҋ AUDC3Ҕ AUDC4Ҟ AUDF1Ҩ AUDF3Ҳ A){}UDF4ҼCHBASE COLBAKCOLPF0COLPF1COLPF2COLPF3COLPM0COLPM1 C)|}OLPM2COLPM3 CONSOL* DLIST4DMACTL>SDMCTL/HGRACTLRHITCLR\HPOSP0fH)}}POSP1pHPOSP2zHPOSP3Є NMIENԎ PL2PFИPMBASEԢ PORTAӬRANDOM ҶSIZEP0 SKC)~}TL TRIG0X; X;INIT$>o;;COPY MY CHARSMYCHRSQMYCHARS9 PCHARS90 IMYCHRSQ>;;DISABLE)} VBI PNMIENQ>4;;SET COLORS PCOLPF0Q>($ PCOLPF1.Q>8 PCOLPF2BQ>L PCOLPF3VQ>` PCOLBAKj$>;;)}INIT PLAYERStSTWIDTHPSIZEP09~0 ISTWIDTHQ>( PCOLPM0Q> PCOLPM1Q> PCOLPM2Q> PCOLPM3 Q>)}5PMAREA PPMBASEQ>> PDMACTL Q> PGRACTL%>p;;INIT CHR SET(SETCH1QROMCH82 PCHARS8<3F HSETCH1PS)}ETCH2QROMCH8ZPCHARS8d3n HSETCH2x Q>5CHARS PCHBASEQ>;;INIT VARS%>SCRPTRCLOCKZEROVARPCL)}OCK81 IZEROVAR%>';;SET SCREEN DISPCLRTOPPCANYON81 ICLRTOP SETSCRNQ>;;INIT SOUND PAUDCTLQ>)} PSKCTLQ>8;;SET PLAYER"PPLYRY;; LANES,Q>H6 PPLYRY@X;JRESTARTQ>,;;SET PLAYERTPPLYRX;; START^Q>)};; POSITIONSh PPLYRXrQ>;;TURN OFF SCREEN PDMACTLPAUDC3;; EXPLOSIONS, PEXPLODEPAUDC4;; AND BKG SOUND)} PMCLR;;CLEAR PLAYERSQ>4DLIST1;;SET TITLEPDLIST;; SCREEN Q>5DLIST1 PDLISTQ>;;SET GAME SPEEDPDELY)}VAL;; FOR TITLESQ>;;SET START DIRPDIRPPLAY;;SET PLAY FALSEQ>;;PLAYERS NOTPONSCR;; ON SCREEN&Q>>;;TUR)}N SCREEN0PDMACTL;; BACK ON:Q>;; INIT CLOCKD PCLOCKN GTCNSLQCONSOL;;CHECK CONSOLXM>;; SWITCHESbR>;;SELECT )}PRESSED?lHCHKSTRT;; NO, TRY STARTv"SELECTQCONSOL;; YES, WAIT FORM>;; KEY RELEASE FSELECTQPLAYERS;;CHANGE # )}OFN>;; PLAYERS PPLAYERS,O>;; & SET ON SCREEN PSCNOPLRHMOVET;;(MOVE PLAYERS)CHKSTRTR>;;IF START T)}HENFSTART;; START GAMEMOVETQONSCR;;IF ON SCREEN,HMOVIT;; THEN MOVEQRANDOM;;ELSE, PICK OUT M>;; NEW SHIP )}TYPE>  QMASKS9*PMASK;; & SET IT4 MOVIT MOVEPLR;;MOVE PLAYERS>!GTCNSL;;DO CHECK AGAINHX;RSTARTQCONSOL;;WAI)}T FOR KEY\M>;; RELEASEf FSTARTpQ>;;SET GAME SPEEDzPDELYVAL;; TO $FF+$04Q>;;SET PLAY TRUE PPLAYPDMACT)}L;;TURN OFF SCREEN$>;;SET SCORES TOZEROSCRPSCORE19;; ZERO PSCORE290 IZEROSCRQ>PSCORE1PSCOR)}E2$>;;SET BOMBS LEFT Q>;; TO THREE STBMBCPBOMB19 PBOMB29$ 0. ISTBMBC8 Q>B PBOMBSL PBOMBSV Q>)};;SET NEXT FREE` PFREMEN;; BOMB AT 1000j PFREMENt QPLAYERS;;SET SECOND~ T?;; PLAYER MESSAGE T?;; TO 'PLAYER 2')} T?;; OR 'COMPUTER' $> ? STP2MSQP2COMPT8 PP2MSG9 3 0 ISTP2MS Q>4DLIST2;;SET DLIST PDLIST;; TO GAME)} Q>5DLIST2;; SCREEN PDLIST Q>>;;TURN ON SCREEN PDMACTL X;( NEWSCRN SETSCRN;;SET CANYON2 Q>;;SET TYPE T)}O< PMASK;; BALLOONF PCLOCK;;AND BEGIN CLOCKP Q>Z PDIR;;DIR = RIGHTd PROCKS;;ROCKS INn Q>*;; CANYON=298x PRO)}CKS  PMCLR;;CLEAR PLAYERS Q>;;SET PLAYERS ON PONSCR;; SCREEN=FALSE PAUDF4 Q>,;;SET START PPLYRX;; POSITION)}S Q>;; OF PLAYERS PPLYRX PHITCLR;;CLEAR HITS Q>;;#ROCKS PER BOMB PRKILL;; (MAX) =8 QDELYVAL;;SPEED UP )}THE R>;; GAME JUST A BIT FBMBLOOP;; (UNLESS ALREADY ;;; AT MAX SPEED) S>" PDELYVAL, X;6 X; BOMB MOVEMONT, HI)}T CHECKS,@ X; SCORE AND HIGHSCORE SETJ X;T !BMBLOOP$>;;GET PLAYER INDEX^ !BMBNLOPQBMBDRP9;;IF BOMB NOTh HCHKHITS;; D)}ROPPEDr !CHKDRP;; CHECK TRIG| CHKHITSQPL2PF9;;BOMB HIT HCKHROK;; ANYTHING? !LWRBMB;; NO,MOVE BOMB CKHROKM>;;I)}F HIT ONLY HBHITRK;; COLOR 3, IT !KILLBMB;; GETS ERASED BHITRKQ>;;SET POINTER PSCRPTR;; INTO SCREEN QBMBD)}RP9;; RAM WHERE THE ;;; ROCK HIT IS. S>g;;1ST, GET BOMB'S M>;; Y-POS TRANS- PSCRPTR;; LATED INTO TSCRPTR;; ROW)} NUMBER TSCRPTR;;AND MULTIPLY IT USCRPTR;; BY 40 ,& OSCRPTR0 PSCRPTR: DGTP0D #SCRPTRN GTP0QPLYRX9;;T)}HEN, CHANGEX ;;; X-POS INTO THEb S>/;; COLUMN NUMBERl V?v V? ,;;AND ADD IT ON OSCRPTR PSCRPTR DGTPA #SCRPT)}R GTPA,;; ADD SCREEN O>4CANYON;; START PSCRPTR;; ADDRESS QSCRPTR O>5CANYON PSCRPTR %>;;CLEAR I)}NDEX Q@SCRPTR7;; & GET CHAR FGTP1;;IF IT'S BLANK R>;; OR ABOVE 4 DGOTCHR;; THIS ISN'T IT. GTP13;; TRY AGAIN,O)}NE* Q@SCRPTR7;; RIGHT4 FGTP2> R>H DGOTCHRR GTP2%>(;;IF WE STILL\ Q@SCRPTR7;; DON'T GET ITf FGTP3;; TRY 1 DOWN)}p R>z DGOTCHR GTP33;;THEN, BOTH AT Q@SCRPTR7;; ONCE HGCKRCK !LWRBMB;;IF BY THIS GCKRCKR>;; TIME, WE DON)}T DGOTCHR;; HAVE IT, THEN !LWRBMB;; GIVE UP GOTCHRT?;;HOLD SCORE= PHOLDIT;; CHAR * 2 Q>;;ERASE ROCK ON P@S)}CRPTR7;; SCREEN QROCKS;;LOWER # OF ;;; ROCKS LEFTS> PROCKS EGOT1$ "ROCKS.GOT1Q>;;START EXPLOSION8)}PEXPLODE;; SOUNDBX;LX; ADD ON TO SCOREVX;`%SCRNDX9;;GET BASE INDEXjQHOLDIT;; TO SCORES,ANDt,;; ADD TO SCORE~ )}OSCORE18 PSCORE18Q>;;SET DIGIT # FORPHOLDIT;; ROLLOVER PROT.ADDSCRQSCORE18;;DONE?FCHKHI;; YES, CHECK HI)}GHR>;;DIGIT >10?DSCUNDX;; NO, GO RIGHT;;;SUB 10 FROMS> ;; THIS DIGIT PSCORE181;;POINT TO NEXT "HOLDI)}TGCHKHI;;ROLLOVER! LEAVE QSCORE18;;GET DIGITHSCBRK;;IF BLANK, SETQ>;; TO ZERO(SCBRK,;;ADD 12O><PSCO)}RE18;; AND SAVE ITFHADDSCR;;CHECK THIS DIGITPSCUNDX3;;GO RIGHT ONEZ#HOLDIT;; DIGITd HADDSCRnX;xX; CHECK FOR HI)}GH SCOREX;CHKHIQ>4SCORE1PSCRPTR;;SET POINTERQ>5SCORE1;; TO SCORE FORPSCRPTR;; PLAYER 1A;;IF IT ISN')}TFCHKSCR;; PLAYER 1, THENQ> ;; ADD TO GET,;; POINTER FOROSCRPTR;; PLAYER 2 PSCRPTR DCHKSCR#SCRPTR)}CHKSCR%>;;BEGIN AT HI ENDCHECKSCQ@SCRPTR7RHISCOR8;;COMPARE 'EM"FCKNXDG;;IF SAME,DO NEXT,ESTHISC;;IF PLAY)}ER > SET6DCHKFRM;;IF HIGH > SKIP@CKNXDG3;;DO NEXT DIGITJ)>;;IF ALL DONE,THCHECKSC;; THEN IT'S THE^FCHKFRM;; S)}AME, SKIPhX;rX; SET HIGH SCORE|X;STHISC%>;;COPY THE SETDIGTQ@SCRPTR7;; NEW HIGHPHISCOR8;; SCORE INTO 1;)}; HISCOR ISETDIGTX;#X; CHECK FOR GETTING EXTRA BOMBSX;CHKFRM%SCRNDX9;;GET SCOREQSCORE18;; IN THOUSANDS)}RFREMEN9;;IF NOT FREEHSTRKHT;; BOMB YET,SKIP.#BOMBS9;;ELSE, UP BOMBSQBOMBS9;; BY 1R>;;IF BOMBS>=4,EU)}PDTFM;; KEEP IN RESERVE&,;;IF BOMBS LESS0OSCRNDX9;; THAN 4, THEN:?;; SET EXTRADQ>;; ON SCREENNPBOMB18X!UPD)}TFM#FREMEN9;;SET FOR NEXTbX;l STRKHT#RCKHIT9;;IF NEW # OFvQRCKHIT9;; ROCKS HIT =RRKILL;; MAX,KILL BOMBHLWRBM)}B;; ELSE, LOWER ITKILLBMBA;;SET POINTER,;; TO BOMB O>5PL2PSCRPTR QBMBDRP9 PSCRPTR%>;;AND ERASE IT)}Q>ERABOMBP@SCRPTR71 IERABOMBKILBOMBA;;TURN OFF SOUND T?;; FOR THIS BOMB? Q>* PAUDF184 PAUDC1)}8>PBMBDRP9;;SET FLAG OFFHQRCKHIT9;;IF IT DIDN'TRHDONXBMB;; HIT ANYTHING,\ LWRMISS;; LOWER # BOMBSf!DONXBMB;; &)} DO NEXTpX;zX; LOWER THE BOMBSX; LWRBMBA,O>5PL2;;SET POINTER TOPSCRPTR;; BOMB QBMBDRP9 PSCRPTR)}Q>;;ERASE THE BOMB%>ERBMBP@SCRPTR71 IERBMB#DRPRATE9;;UP DROP SPEED QDRPRATE9V?;;UPDATE POSITION)}V?$V?.V?8 PHOLDITB,L OBMBDRP9VR>;;OUT OF RANGE?`EKILBOMB;; YES, KILL ITjPBMBDRP9;;ELSE, SETtPSCRPTR)};; THE BOMB~%>SETBOMBQCHARS`8 P@SCRPTR71 ISETBOMBA;;SET Y TO INDEXT?;; THE SOUND REGS?QHOLDI)}T;;UPDATE SOUND,;; OF DROPPINGODRPFREQ9;; BOMB PDRPFREQ9 PAUDF18Q> ; SHOLDIT PAUDC18(DONXBMB0;;R)}ESET INDEX2GDOPLMV;;IF BOTH NOT<!BMBNLOP;; DONE, DO NEXTFX;PX; CHECK & DROP BOMBSZX;d$CHKDRPQBOMBS9;;IF NO BOM)}BS LEFTnFDONXBMB;; THEN DO NEXTxA;;IF NOT THE,;; COMPUTER,CHECKSPLAYERS;; TRIGGERHCHKTRG;;IT'S PLAYER!QDI)}R;;GOING LEFT?GGOINGR;;NO!QPLYRX9;;GET COMPUTER XR>D;;TOO FAR LEFT?DDONXBMB;;YES!ETRYDRP;;NO, TRY DROP!)}GOINGRQPLYRX9;;GET COMP. XR>;;TOO FAR RIGHT?EDONXBMB;;YES!"TRYDRPQRANDOM;;COMPUTER DROPSM>;; A BOMB IF)}FDROPIT;; RANDOM SAYS TOHDONXBMB;;ELSE DO NEXT CHKTRGQTRIG09;;TRIG PUSHED?HDONXBMB;; NO, DO NEXTDROPITQPLY)}RY9;;DROP: SET,;; BOMB Y TO"O>;; PLAYER Y+8, PBMBDRP96Q>;;CLEAR DROP RATE@ PDRPRATE9JPRCKHIT9;; AND ROCKS H)}ITT#BRUN9;;UP BOMBS DROPPED^Q>2;;SET THE SOUNDhPDRPFREQ9;; FLAGrHDONXBMB;;AND DO NEXT|X;DOPLMVPHITCLR;;CLE)}AR HITS MOVEPLR;;MOVE PLAYERSQEXPLODE;;EXPLOSION GOING?FCKRSTRT;; NO,SKIP"EXPLODE;;UPDATE EXPLOSION"EXPLO)}DE;; SOUNDN> PAUDF3V?V?V?V?N> PAUDC3 CKRSTRTQCONSOL;;ANY CONSOLER>;; BUTTONS PUSHED?&F)}CKNSCR;;IF YES, THEN0!RESTART;; RE-START:"CKNSCRQROCKS;;# OF ROCKS LEFTDHCHKPAUS;; = ZERO?NQROCKS;;IF YES, TH)}ENXHCHKPAUS;; SET UP Ab!NEWSCRN;; NEW SCREENl"CHKPAUSQCH;;SPACEBAR PRESSED?vR>!HCKDRRCK;;NO, CONTINUEQ>;)};YES, PAUSE GAMEPAUDC1;;TURN OFF MAINPAUDC2;; SOUNDS PAUDC3"HLDPTRNQPORTA;;WAIT FOR STICKR>;; MOVEMENT )}FHLDPTRNQ>;;RESET CH FORPCH;; ANOTHER PAUSEPCH1 CKDRRCKQCLOCK;;TIME TO DROPM>;; SUSPENDEDFDRPROCK;)}; ROCKS? !BMBLOOP;;NO, DO BOMBS!DRPROCKQ>';;SET COLUMN TO 39  PXCOUNT*DSTYCNTQ>;;ROW TO 84PYCOUNT;;AND SET P)}OINTER>Q>4CANYONh ;; TO XCOUNTH,;; PLUS CANYONROXCOUNT;; START\ PSCRPTRfQ>5CANYONh pO>zPSCRPTR)}RK2DRP%>;;ROCK FALL LOOP:Q@SCRPTR7;;NOTHING THEREFDONXRCK;; THEN TRY NEXT UP>;;ELSE HOLD IT%>(;; & LOOK )}UNDERNEATH Q@SCRPTR7HDONXRCK;;NOT BLANK-DO NEXTA;;BLANK, MOVE ROCKP@SCRPTR7;; ABOVE DOWN%>C P@SCRPTR)}7QSCRPTR;; & GO UP ONE;;; SO WHOLE COLUMNS>(;; WON'T FALL ATPSCRPTR;; ONCE$ ENOVER."SCRPTR8!NOVER"Y)}COUNT;;LAST ROW DONE?BGDONXCOL;; YES, DO NEXT COLLDONXRCKQSCRPTR;;GO UP ONEV ;;; ROW`S>(j PSCRPTRt ENOVER2~")}SCRPTR"NOVER2"YCOUNT;;LAST ROW DONE?IRK2DRP;; YES, DO NEXT COL#DONXCOL"XCOUNT;;LAST COL DONE?IDSTYCNT;; N)}O, DO NEXT!BMBLOOP;;DO BOMBS AGAINX;#X; MOVE PLAYER,CHECK FOR LEAVING$X; SCREEN, END GAME CHECK, SWITCHX; SHIP )}TYPESX;MOVEPLRQONSCR;;IF NOT ON HADDCLOK;; SCREEN, SET SOUNDQMASK;; AND PLAYERS R>;;BALLOON?FSTBLSND;;)} YES, DO THATQ>;;SET PLANE SOUND( PAUDF42Q>$< PAUDC4FHADDCLOK;; & GOTO CLOCK ADDPSTBLSNDQ>;;SET WIND SOUN)}DZ PAUDF4dQ>n PAUDC4x$>;;SET BALLOONSTBLNSQPLYRY9 PSCRPTRA, O>5PL0PSCRPTR%>SETBA)}LNQCHARSP8 P@SCRPTR71 ISETBALN0 ISTBLNS ADDCLOK#CLOCK;;ADD TO CLOCKQCLOCK;;IF CLOCK ANDMMASK;; )}MASK<>0 THEN"HDODELAY;; DON'T MOVE,QPLYRX;;MOVE THE PLAYERS6,;;FIRST PLAYER 1@ODIRJ PPLYRXT PHPOSP0^ PHPOSP2)}hQDIR;;THEN PLAYER 2rN>|, OPLYRX PPLYRX PHPOSP1 PHPOSP3QMASK;;IF ON PLANESR>;; THEN CHECK)} IFHDODELAY;; TIME TO ANIMATEQCLOCK;; PROPSM>FDODELAY;;NO, SKIP THISQDIR;;SET TEMP DIRPTDIR;;(WILL B)}E KILLED)$> ANILOOPQPLYRY9;;SET POINTERPSCRPTR;; TO PLAYERA&,0 O>5PL0:PSCRPTRDQCLOCK;;GET IMAGE )}INDEXNM>;; FROM CLOCKXT?bPHOLDIT;; AND HOLD ITlQTDIR;;GET DIRECTIONvM>;; INDEX FROM ,;; DIROHOLDIT;;& A)}DD 'EM TO GET&HOLDIT;; INDEX.>;;SAVE PLAYER #%>;;SET PLAYERANISETQCHARS09 P@SCRPTR723)> H)}ANISETQTDIR;;REVERSE TDIRN> PTDIR $HOLDIT;;GET PLAYER #0;; & ANIMATE NEXT  IANILOOP*DODELAY$>;;WAIT )}FOR A4#DELAY1%DELYVAL;; WHILE TO MAKE>DELAY21;; GAME PLAYABLEH HDELAY2R0\ HDELAY1fQ>;;PLAYERS ARE NOWpPONS)}CR;; ON SCREENzQPLYRX;;BUT CHECK TOR>,;; SEE IF THEYFOFFSCR;; AREN'TR>̢HMPGOBAK;;IF ON, RETURNOFFSCRQ>)};;ELSE, TURN OFFPAUDC3;; EXPLOSIONS ANDPAUDC4;; BKG SOUND PEXPLODEPONSCR;;SET ONSCR FALSE$> CHKBRQB)}MBDRP9;;IF A BOMB ISFCKBRN;; IN THE AIR, ANDQRCKHIT9;; IT HASN'T HITHCKBRN;; ANYTHING YET, LWRMISS;; IT'S A M)}ISSCKBRNQBRUN9;;IF NO BOMBS$HCKNBR;; DROPPED THIS. LWRMISS;; PASS,IT'S A MISS8 CKNBR0B ICHKBRL PMCLR;;CLEAR)} OUT PLAYERSV$PLAYERS;;IF THE ACTUAL`QBOMBS;; PLAYERS HAVEj,;; NO MORE BOMBS,tOBOMBS9;; AND WE'RE ON A~OPLAY;; )}GAME, END IT FENDGAMEQDIR;;REVERSE DIRECTIONN>PDIR$PLYRY;;CHANGE PLAYER%PLYRY;; LANES &PLYRY)} 'PLYRYQ>;;RESET CLOCK PCLOCKQROCKS;;IF HALF OF THEHMPGOBAK;; ROCKS ARE GONEQROCKS;; THEN SWITCH )}R>;; TO PLANESEMPGOBAK;;ELSE RETURNQ>;;SET MOVE RATE(PMASK;; MASK2Q>;;PLANE BOMBS GET<PRKILL;; MAX OF 4 )}ROCKSFMPGOBAK:;;RETURNPX;ZENDGAME7;;GET RID OFd7;; RETURN ADDRESSnQ>;;DO DELAY SOxPHOLDIT;; THE PLAYERSW)}AIT0$>;; CAN SEE THEWAIT1%>;; FINAL SCOREWAIT2QCONSOL;; (END DELAYR>;; EARLY WITHHENDGOBK;; CONSOL KEY))}1 HWAIT20 HWAIT1 "HOLDIT IWAIT0%ENDGOBK!RESTART;;GO TITLE SCREENX;X; SET CANYON SCREEN IMAGEX;)}SETSCRN%>;;COPY ROCKS &" SETSC1QROCKIMG8;; CANYON TO,PCANYON(8;; SCREEN63@ HSETSC1J%>TSETSC2QROCKIM)}G8^PCANYON'8h1r HSETSC2| :;;RETURNX; X; LOWER NUMBER OF BOMBS LEFTX;LWRMISSQBOMBS9;;IF ALREADYF)}LWMGOBK;; ZERO, EXIT"BOMBS9;;LOWER BOMBS LEFTQBOMBS9;;IF AT LEAST 3R>;; LEFT, RETURN ELWMGOBK,;;GET INDEX)} FOROSCRNDX9;; SCREEN TO?;; ERASE BOMBQ> PBOMB18 LWMGOBK:;;RETURN X;& %X; CLEAR PLAYERS,BOMB Y POSITIO)}NS,0 "X; BOMBS DROPPED THIS PASS, AND: X; TURN OFF BOMB SOUNDSD X;N PMCLRQ>X ?b PMCLOOPPPL08;;CLEAR ALLl PPL18;; )}PLAYERSv PPL28 PPL38 1 HPMCLOOP PBMBDRP;;CLEAR BOMB Y PBMBDRP;; POSITION PBRUN;; & BOMBS DROPPED PBR)}UN;; THIS PASS PAUDC1;;TURN OFF BOMB PAUDC2;; FALL SOUNDS : X; X; PLAYER 2/COMPUTER MESSAGES X;!#P2COMPT )}=ARETUPMOC2 REYALPA !X;!X; MISC DATA !X;*!SCRNDX = 4!MASKS =>!X;H!X; TITLE SCREEN DISPLAY LISTR!X;\!DL)}IST1 p=p=p=Ff! GAMEp! p=p=p=p=pz! p=p=p=p=D! CANYON(!! =========G! TITLE! =)}=A! DLIST1!X;!X; GAME DISPLAY LIST!X;!DLIST2 p=p=p=p! p=p=p=p=p! p=p=p=p=D! CANYON(!! )}=========F" GAME" p===A" DLIST2$"X;." X; TITLES8"X;B"TITLE =A boulder AL" =A b)}ombers AV" A by mark price A`" A PLAYERS: Aj"SCNOPLR =====t"X;~"X; BOTTOM OF GAME SCREEN"X;")}GAME A HIGH: A"#HISCOR A 0 PLAYER 1 A"'P2MSG ========="SCORE1 ===="B)}OMB1 ===="SCORE2 ===="BOMB2 ==="X;"X; DATA FOR CANYON"X;")ROCKIMG =====)}====#! ========= #! =========#! =========#! ===)}======(#! =========2#! =========<#! =========F#! =)}========P#! =========Z#! =========d#! =========)}n#! =========x#! =========#! =========#! =======)}==#! =========#! =========#! =========#! =====)}====#! =========#! =========#! =========#! ==)}=======# ====# ======#' ===========$' ======)}=====$ =====$ ====="$ =====,$ =====6$ =====@$ )}=====J$ =====T$ =====^$ =====h$ =====r$ =====|$)} =====$ =====$ =====$ =====$ =====$ =====$)} =====$ =====$ =====$ ===&%X;0%X; CHARACTER SET DATA:%X;D%#MYCHARS =)}======N% T=T=T=T=T=T=T=X% =======b% =======l% ======)}=v% =======% ====?===% ======~=% =======% ===*}===~=% <=~=====~=<% =$=$=====% =@====@==% l=|=8=|=|=|=8=%X*};%X; ON-SCREEN CANYON%X;%CANYON %X;& & INIT;;RUN ADDRESS&X; &ERS' *X;* by *(WVWgKFFRMPICNUMNQTESTEXTFLAINLINROCOCHAKECOLTALUMTADSTAR.} .} !2.}************************3* LOANSHARK *4* BY *5* MARTY SCHMIDT *6**.}**********************P7@@S:7@@S:ZM6-@4AY% B7A.}ACAYM A_FORMAT NUMBERSd 6-6.n-@B:,x%7<,4.6-B:,&% A@.} ' "6.=:P:%?P,,' A6-P:@#%?P,6-P:$%?P,' 6.=:,-@B:. },7<,4.A 67&%@<&%B:,,.$,INPUT ROUTINE6"-@B:,"6-@:7<,,@. }"@FAPJ+"@'+(@@+O0"@ AS# AP&'0 A@T!! @H. })!@WAp^ h 6-A:,$r% 6-A:,%6-A:7%@:, )@%%7@<@,4 AQ3@ "63(. }@ APP3 BBA$PE-@E(@' PRESS ANY KEY TO CONTINUE. Ug.!}BBA<("} THERE IS NO PRINTER ON LINE!!g(& IF YOU PROCEED WITHOUT A PRINTER THEZ..(& DATA NOW ON THE SC."}REEN WILL BE LOST.d5@@K:*)@5@n AQ APE-@E(@' .#} PRESS ANY KEY TO CONTINUE. R&(} TURN YOUR PRINTER ONR(' IF YOU WANT THE ABOVE DATA PRINTED!!.$}BBA AR p-@@z @2,/@9 $0uINITIALIZE SCREEN5u1 #B.%}p-@"-Ad%1 :u6-A6-%@$>u6-?:A,NuAA(XuA@.&}lu%%6-F:A`,%AV$F:Aa,vu-%@%@(uA0u u%@AuBB.'}Au >:A%,uAF:,uA F:,u$u''72,138,72,174,156,6,189,176,6,141u((10,212,141,24.(},208,189,200,6,141,23u))208,238,156,6,104,170,104,64,14,104u&&169,7,160,168,162,6,32,92,228,96v''169,1,141,156,6,76,.)}98,228,162,170 v--156,170,156,170,156,170,156,170,156,170v--156,170,156,170,156,170,156,162,204,204 v204,204,14,0,0,.*}0,0,0,0,0*v0,0,0,0,0,0,0,0,0,04v0,14,0,0,0,0,0,0,0,0D:LOANSHRK.BASOLTALUMTADSTAR,Si DZZZZ d*2,}********************n* ATARI COLOR CHART *x* by Graham Potter ********************** A 2-}-@!@76-$@%@C6-@M APY6-Avc APy6-$@%@6-@2.} AP6-@s APO/-$@%@$@%@;,@G/AuK O GG216,72/}2,173,19,6,24,105,16,141,19,6,141,10,212,141,26,208,104,64,0S #A!-A6AU%"+/ AA20}SA@!6-%$AV!6-%@c-AuN+&@,'@"P:+&@,'@,*!@ 21}c%F:%,%A(1#F:%,"@y)F:%,"A16-%@ BBA+AY7A`22}CAaUA#@do0@AY@4B2y@4F:B2y,"@*@23}w4 AA- AF:A,%@*+-+#A%$@ +-@+",%24}%P:O:,,+ A"/%%P:,"P:,A`"   $, 62,8.5,-1,-9.5,2,8.5@ J25}-2,-9.5,1,9.5,-9.5T ^##-2,7,9.5,-1,5,6,-9.5,2,4,-9.5h r&&-1,-5,-9.5,-1,4,5,-9.5,1,3,6,8.5| 26}1,5.5,-5.5,2,9.5 $$1,5,-9.5,-1,-5,-9.5,-1,6,8.5,0 2,8.5,-1,-5,-9.5,-2,6,8.5 -1.5,-127},5,9.5,1,5.5 $$2,4,6,8.5,-1,-5,-9.5,2,4,6,8.5 2,4,-8.5,-1,-5,-9.5,2,8.5 (10)3,9.5,1,28}3,-7.5,3,9.5  (11) 1,9.5,-1,-5,-9.5,2,4,6,8.5à (12)&2,8.5,-1,-9.5,-2,-8.50Ġ (13):1,9.5,29}-1,-9.5,2,8.5DŠ (14)N1,9.5,-1,-5,-9.5,-1,-9.5XƠ (15)b1,9.5,-1,-5.5,-1.5l +@'02:}A0@[0@u0@6-F:A`,6-F:Aa,vm-@2;}@4(@analog computingF-@@[(@proudlym-@@::(@present2<}s>:@,>:@,>:@,O6-%$AV'%@@;%@@O%@$@s-@2=}@ ?(@ >:AA, Q-@ @s(@By Graham L. Pottert-@@2>}.(@ PLEASE WAIT@-@ t(@&Press START, SELECT, or OPTION to ExitZ AF:A,&@2?}*+@ 96-F:A`,H6-F:Aa,ZA#D6-F:@,!A',6-&A(8@DB7t2@}A`Aa50@@O0@@@i0@0@@2A}@0@$ D:TWO56.BAS d*0< 34) 8 AXLPB0NZ<( ((@&@d8"( 6C} +AdAU0@@70@@Q0@@c@@6D}u@@7{(}AR@++(#,,($| ANALOG MONTHLY DISK MAYL 196E}85 |++(#++(# @ -@A6F} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@6G}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.6H}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(-6I}-@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@6J},.0$@(''7@<@,4FREE@- @ 2() <@F''7@6K}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z6L}++(#| |[ ( |  |\++(#d**(" 6M}Select HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM A6N}0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<6O}+&@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.6P}0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?6Q}AR@'-@@"?  LOADING ? A@@91@@5%? BK6R}-@@"-  CANNOT RUN 7 @A BK A0D2:MENUVTABLE3 .BASLP 4vEiͩkΩ͙kCop j`j {j`Hi͝Νh`:T}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`8